﻿Public Class FrmSalon

    Private Sub FrmSalon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmPrincipal
    End Sub

    Private Sub BtnSalonListo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalonListo.Click
        Dim salon As SIBA_Data.Salon = New SIBA_Data.Salon()
        salon.nombre() = TxtSalonNombre.Text
    End Sub

    Private Sub BtnSalonesCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalonesCancelar.Click
        Me.Close()
    End Sub
End Class